10 REM *** CRAPS 2
20 REM     EARL WUCHTER
30 REM
40 REM *** PET USER GROUP
50 REM     SOFTWARE EXCHANGE
60 REM     PO BOX 371
70 REM     MONTGOMERYVILLE, PA 18936
80 REM
98 DIMN$(12),WK(5),AD$(5),OD$(10),HW$(10)
99 I=RND(-TI)
100 D$(0)="   [157][157][157]   [157][157][157]   [157][157][157][145][145][146]"
101 D$(1)="   [157][157][157] [209] [157][157][157]   [157][157][157][145][145][146]"
102 D$(2)="  [209][157][157][157]   [157][157][157][209]  [157][157][157][145][145][146]"
103 D$(3)="[209]  [157][157][157] [209] [157][157][157]  [209][157][157][157][145][145][146]"
104 D$(4)="[209] [209][157][157][157]   [157][157][157][209] [209][157][157][157][145][145][146]"
105 D$(5)="[209] [209][157][157][157] [209] [157][157][157][209] [209][157][157][157][145][145][146]"
106 D$(6)="[209] [209][157][157][157][209] [209][157][157][157][209] [209][157][157][157][145][145][146]"
107 CD$=""
108 BL$="                                      "
109 N$(2)="TWO ":N$(3)="THREE ":N$(4)="FOUR ":N$(5)="FIVE ":N$(6)="SIX "
110 N$(7)="SEVEN ":N$(8)="EIGHT ":N$(9)="NINE ":N$(10)="TEN "
111 N$(11)="ELEVEN ":N$(12)="TWELVE "
115 OD$(4)="2 TO 1":OD$(5)="3 TO 2":OD$(6)="6 TO 5":OD$(8)=OD$(6)
116 OD$(9)=OD$(5):OD$(10)=OD$(4)
117 HW$(4)="8 TO 1":HW$(10)=HW$(4)
118 HW$(6)="10 TO 1":HW$(8)=HW$(6)
119 AD$(0)=" ":AD$(2)=" ":AD$(5)=" "
240 GOSUB800
250 PRINT"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][201] [213][192][192][192][192][192][192][192][201] [213][192][192][192][192][192][192][192][192][192][192][192][201]"
251 PRINT "[221]HIT ANY KEY [221] [221]       [221] [221] HIT A FOR [221]"
252 PRINT "[221] FOR MANUAL [221][160][221]       [221] [221] AUTOMATIC [221]"
253 PRINT "[221] DICE ROLL  [221][160][221]       [221] [221] DICE ROLL [221]"
254 PRINT "[202][192][192][192][192][192][192][192][192][192][192][192][192][203] [202][192][192][192][192][192][192][192][203][160][202][192][192][192][192][192][192][192][192][192][192][192][203]"
255 PRINTLEFT$(CD$,17)TAB(12)"COUNT    DEVIATION"
256 PRINTBL$
257 PRINT"TURNS ....."
258 PRINT"WON ......."
259 PRINT"LOST ......"
260 PRINT"NATURAL ..."
261 PRINT"CRAPS ....."
264 PRINT"CONSEQ.WINS"
265 PRINTLEFT$(CD$,6)
280 GETX$:IFX$=""GOTO280
300 REM
301 R=1:WK(0)=WK(0)+1
305 PRINTLEFT$(CD$,6):PRINTBL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINTBL$:PRINTBL$
307 T=INT(12*RND(3)+6)
308 FORK=1TOT
310 D1=INT(6*RND(1)+1):D2=INT(6*RND(2)+1)
312 PRINT""TAB(16)D$(D1)TAB(20)D$(D2)
315 NEXT
318 DV=D1+D2
320 J=7:IFR=2THENJ=12:IFDDTHENJ=13
321 PRINTLEFT$(CD$,J)"      [157][157][157][157][157][157]"N$(DV);
330 IFR=1GOTO400
380 IFDV<>7GOTO390
382 PRINT"... YOU LOSE               "
383 R=1:WK(2)=WK(2)+1:W5=0
385 GOTO450
390 IFDV= PTGOTO394
392 PRINTTAB(07)"... ROLL AGAIN             "
393 GOTO496
394 PRINT"... YOU WIN                ";
395 IFD1=D2THENPRINT"[157][157][157][157][157][157][157][157][157][157][157][157]THE HARD WAY"
396 R=1:WK(1)=WK(1)+1
397 W5=W5+1:IFW5>WK(5)THENWK(5)=W5
398 PRINT:GOTO450
400 ON DVGOTO410,410,410,420,420,420,430,420,420,420,430,410
410 PRINT"... CRAPS ... YOU LOSE     "
411 WK(4)=WK(4)+1:WK(2)=WK(2)+1:W5=0
412 IFAMTHENFORI=1TO60:NEXT
416 GOTO450
420 PRINT" IS YOUR POINT             "
422 PT=DV :R=2
423 PRINTBL$:PRINTOD$(PT)" YOU DON'T MAKE IT":PRINTBL$
424 DD=0:IFPT=4ORPT=6ORPT=8ORPT=10THENDD=1
425 IFDDTHENPRINTHW$(PT)" YOU DON'T MAKE IT THE HARD WAY":PRINTBL$
428 GOTO496
430 PRINT"... A NATURAL ... YOU WIN  "
431 WK(1)=WK(1)+1:WK(3)=WK(3)+1
432 W5=W5+1:IFW5>WK(5)THENWK(5)=W5
435 IFAMTHENFORI=1TO60:NEXT
440 GOTO 450
450 PRINTLEFT$(CD$,19);
451 X=((WK(1)/WK(0))-.49395)/.49395
452 AD$(1)=STR$(X)
453 X=((WK(3)/WK(0))-.222222)/.222222
454 AD$(3)=STR$(X)
455 X=((WK(4)/WK(0))-.111111)/.111111
456 AD$(4)=STR$(X)
460 FORI=0TO5
465 PRINTTAB(11)RIGHT$(("    "+STR$(WK(I))),5);
466 PRINTTAB(20)"                   [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"AD$(I)
470 NEXT
496 GETY$:IFY$=""THENIFAM=0THENGOTO496
497 IFAMTHENFORI=1TO070:NEXT:IFY$<>"A"THENIFY$<>""THENAM=0
498 IFY$="A"THENAM=1
500 ON R GOTO 301,307
800 PRINT"[147]     C R A P S   D E M O"
805 POKE59468,14
810 PRINTTAB(23)"E[193][210][204][160]W[213][195][200][212][197][210][160]1978"
820 PRINT"T[200][201][211][160][208][210][207][199][210][193][205][160][201][204][204][213][211][212][210][193][212][197][211][160][212][200][197][160][207][196][196][211]"
822 PRINT"[201][206][214][207][204][214][197][196][160][201][206][160]CRAPS."
824 PRINT"I[212][160][201][211][160][206][207][212][160][193][160][194][197][212][212][201][206][199][160][199][193][205][197]."
826 PRINT"CRAPS [201][211][160][208][204][193][217][197][196][160][193][211][160][198][207][204][204][207][215][211]:"
827 PRINT"O[206][197][160][208][204][193][217][197][210][160][194][197][212][211], [212][200][197][206][160][210][207][204][204][211][160][212][200][197][160][196][201][195][197]"
828 PRINT"A[206][217][160][208][207][210][212][201][207][206][160][207][198][160][200][201][211][160][194][197][212][160][205][193][217][160][194][197][160][195][207][214][197][210][197][196]"
829 PRINT"[194][217][160][212][200][197][160][207][212][200][197][210][160][208][204][193][217][197][210][211][160][215][200][207][160][194][197][212][160][193][199][193][201][206][211][212][160][200][201][205]"
830 PRINT"I[198][160][212][200][197][160][198][201][210][211][212][160][210][207][204][204][160][201][211]
832 [153]"7 (null)(null)CLOSE11 (ATNCLOSENATURAL), LEFT$VALCLOSE(null)RIGHT$(null)(null)."
834 [153]"2, 3, (null)(null)CLOSE12 (CRAPS), LEFT$VALCLOSE(null)(null)(null)VAL(null)."
836 [153]"A(null)(null)CLOSE(null)(null)LEFT$VAL(null)CLOSE(null)(null)(null)PEEKVAL(null)CLOSEPEEKVALLEN(null)(null)VAL(null)CLOSELEFT$RIGHT$(null)CLOSE'POINT'"
838 [153]"ATN(null)STR$CLOSELEFT$VALCLOSE(null)(null)(null)(null)CLOSE(null)(null)(null)(null)CLOSE(null)(null)(null)RIGHT$(null)CLOSELEFT$VALCLOSECHR$VAL(null)(null)CLOSE"
840 [153]"LEFT$RIGHT$(null)CLOSE(null)(null)RIGHT$(null)(null)CLOSEATN(null)STR$CLOSE(null)RIGHT$(null)(null),"
842 [153]"(null)(null)CLOSE7 ATN(null)STR$CLOSE(null)(null)(null)VAL(null)CLOSELEFT$RIGHT$(null)CLOSEPEEKVAL(null)CLOSEATN(null)STR$CLOSELEFT$RIGHT$(null)CLOSE(null)(null)(null)(null)."
850 [133]"OK  YCMDCMDCMD";Y$
860 [153]"LOAD     C R A P S   D E M O"
865 [153][163]23)"EATN(null)(null)CLOSEW(null)LENLEFT$(null)VAL(null)CLOSE1978"
870 [153]"TLEFT$VALCLOSE(null)STR$STR$(null)CLOSEATNCHR$ATNRIGHT$(null)(null)(null)CLOSE(null)LEFT$VALCLOSE(null)(null)ATN(null)VAL(null)CLOSE(null)RIGHT$(null)LEFT$CLOSE(null)LEFT$VAL"
875 [153]"STR$RIGHT$LENVALCLOSEATN(null)VALCLOSE251 (null)(null)CLOSE245 (VAL(null)VAL(null)CLOSE(null)(null)(null)VAL(null))"
880 [153]"TLEFT$VALCLOSE(null)(null)ATN(null)VAL(null)CLOSE(null)RIGHT$(null)LEFT$CLOSEATNCLOSEPOINTCLOSE(null)(null)CLOSE(null)ATN(null)VALCLOSE(null)ATN(null)"
885 [153]"(null)ATN(null)VALCLOSEATNSTR$STR$RIGHT$(null)RIGHT$(null)(null)ATN(null)CLOSEPEEKVAL(null)(null)CLOSE(null)LEFT$ATN(null)CLOSELEFT$VALCLOSE(null)RIGHT$(null)(null)"
886 [153]"(null)ATN(null)VALCLOSELEFT$RIGHT$(null)CLOSE(null)(null)RIGHT$(null)(null)CLOSE'TLEFT$VALCLOSEHATN(null)STR$CLOSEWATN(null)'"
887 [153]"   ((null)RIGHT$(null)LEFT$CLOSESTR$(null)(null)PEEK(null)VAL(null))"
888 [153]"TLEFT$VALCLOSE(null)(null)(null)CHR$(null)ATN(null)CLOSE(null)RIGHT$(null)(null)CLOSESTR$RIGHT$(null)(null)(null)ATN(null)CLOSEATNLEN(null)(null)ATN(null)CLOSELEN(null)(null)(null)(null)(null)"
889 [153]"ATN(null)STR$CLOSE(null)(null)(null)(null)ATN(null)RIGHT$(null)VALSTR$CLOSESTR$VAL(null)RIGHT$ATN(null)RIGHT$(null)(null)CLOSEASC(null)(null)(null)CLOSE(null)LEFT$VAL"
890 [153]"(null)(null)(null)PEEKATNPEEK(null)VALCLOSELEN(null)(null)(null)(null)(null)."
892 [133]"OK  YCMDCMDCMD";Y$
898 [151]59468,12
899 [142]